home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SYMBOL / Symbol Processors / Find / find-unique < prev   
Encoding:
Text File  |  1998-10-23  |  345 b   |  11 lines  |  [TEXT/ScoM]
  1. find-unique symbol-pattern
  2.  
  3. Removes those symbols that occur twice or more in symbol-pattern. The output can be used as a fill pattern in fill-template, for example.
  4.  
  5. (find-unique '(a b b c c d))
  6. --> (a b c d)
  7.  
  8. (fill-template 
  9.     (pick-symbol ("binary rhythmics:8-bit binary" 0.5 nil a))
  10.     (find-unique (gen-trans a 3)))
  11. --> (= a a a = a a =)